home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n18.arc / LN1018.ARC / MYSHELL.1 < prev    next >
Text File  |  1991-10-30  |  578b  |  18 lines
  1. Declare Function FindWindow Lib "user"(dummy As Long, title$)  \
  2.     As Integer
  3.  
  4. Declare Function GetFocus Lib "user" As Integer
  5.  
  6. Declare Sub PostMessageStr Lib "user"(hWnd As Integer, \
  7.     wMsg As Integer, wParam As Integer, lParam$) Alias "PostMessage"
  8.  
  9. Sub MAIN
  10.     Shell "notepad"
  11.     notepad = FindWindow(0, "Notepad - (untitled)")
  12.     editctrl = GetFocus
  13.     wmSetText = 12
  14.     PostMessageStr notepad, wmSetText, 0, "This is a test"
  15.     PostMessageStr editctrl, wmSetText, 0, \
  16.     "This is some text to appear in Notepad" + Chr$(13) + Chr$(10)
  17. End Sub
  18.